home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / store.dir / 00139_Cancel Button.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  311 b   |  15 lines
  1. on mouseUp
  2.   global orders, session
  3.   puppetSprite(5, 0)
  4.   if the visible of sprite 12 <> 1 then
  5.     set the visible of sprite 12 to 1
  6.     updateStage()
  7.   end if
  8.   puppetSprite(12, 0)
  9.   repeat with i = 1 to session
  10.     set tmpline to getLast(orders)
  11.     deleteOne(orders, tmpline)
  12.   end repeat
  13.   GoReturn()
  14. end
  15.